home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 11 / FM Towns Free Software Collection 11.iso / t_os / data / mee / wiew.plt < prev   
Text File  |  1995-08-20  |  2KB  |  86 lines
  1. var a[1024*256];
  2. var b[1024];
  3. var c[1024];
  4. var l[1024];
  5. var al[1024];
  6. var ln[1024];
  7. var file[256];
  8. var val[256];
  9. var sp[1];
  10. var cr[1];
  11. sp:={ };
  12. cr:=@xc({0d});
  13.  
  14. var Date[256];
  15. var MessageID[256];
  16. var From[256];
  17. var To[256];
  18. var Subject[256];
  19. var Path[256];
  20. var ml[1];
  21. var ma[1];
  22.  
  23. tab(7);
  24. chat({Yes});
  25. case(@mcheck=0,{No},{mclose(1);});
  26. /*mopen(@mlast+1);*/
  27. madd(@mlast+1,{});
  28. file:=@filesel({LIS});
  29. file:=@tail(@getcdir,{},{\})|{\}|file;
  30. case (@tail(file,{.}),{LZH},{
  31.     setcdir({d:\tmp});
  32.     command({b:lha e }|file);
  33.     file:=@filesel;
  34. });
  35. /*a:=@read(file);*/
  36. /*write(@filesel,a);*/
  37.  
  38. fopen(file);
  39. /*a:=@read(file);*/
  40. l:=0;
  41. loop({
  42. b:=@fread;
  43. /*b:=@head(a,{\n});a:=@body(a,{\n});*/
  44. case(@nochar(b)>@nochar(@head(b,{\n})),
  45.     {Yes},{l:=l+1;},
  46.     {No},{b:=b|@fread;},
  47. );
  48.  
  49. /*footnote(b);*/
  50. al:=@head(b,{>})|{>    }|@body(b,{#});
  51. /*footnote(al);*/
  52. madd(@mlast,al);
  53. /*mopen(@mlast,0,21,639,400);
  54. case(@mcheck=0,{No},{mclose(1);});
  55. */
  56. im(b<>{});
  57. });
  58.  
  59. fclose;
  60.  
  61. ml:=@mlast;
  62. loop({
  63. case(@mcheck=0,{No},{mclose(1);});
  64. mopen(ml,0,21,639,300);
  65. case(@mcheck=0,{No},{mclose(1);});
  66. waitx(99999);
  67. case(@xtype,ml,{
  68.     b:=@head(@xline(0),sp,{>});
  69. /*    display(@nolmemo(@mlast));*/
  70.     al:=@tail(@read(file),b,{#});
  71.     footnote({file(}|@head(al,{>},{/})|{,}|@head(al,{/},{[})|{,}|
  72.         @head(al,{[},{]})|{)});
  73.     a:=@read(@head(al,{>},{/}),@head(al,{/},{[}),@head(al,{[},{]}));
  74.     case(@mcheck=0,{No},{mclose(1);});
  75.     madd(ml+1,a);
  76.     mopen(@mlast,0,21,639,300);
  77.     waitx(99999);
  78.     case(@mcheck=0,{No},{mclose(1);});
  79.     mclear(ml+1);    
  80. /*    mclose(3);*/
  81. footnote();
  82. });
  83. im({Yes});
  84. });
  85.  
  86.